      data LMHMbs(6) /13.4000/

      data (RGBb_coef(6,i),i=1,nRGBbc) /
     &     +2.348880D-01,
     &     +8.972940D-01,
     &     +2.519950D+00,
     &     -1.414110D+00,
     &     +0.000000D+00/

!     0.03000     LMR1
      data (mrange(6,1,i),i=1,3) /0,4,1/
      data (rrange(6,1,i),i=1,3) /0,4,1/
      data (alphas(6,1,i),i=1,25) /
     &     +1.54866491842634630416D+01,
     &     -2.35824863480211543987D+00,
     &     +1.34711604769709447638D+00,
     &     +2.79306201502264705994D+00,
     &     -2.56152597553130023655D+00,
     &     +7.89806670922946318925D-01,
     &     +1.42719958374201905116D+01,
     &     -2.47713064947769225910D+01,
     &     +8.04278071310951681028D+00,
     &     +3.66647228234742073028D+00,
     &     +1.66175550737136745738D+01,
     &     -7.35725916220352331720D+01,
     &     +1.08031105163848295092D+02,
     &     -5.83176668396733290933D+01,
     &     +6.99282806748704732769D+00,
     &     -4.02973895611078916090D+01,
     &     +1.40473419123728177738D+02,
     &     -1.80465312924060071964D+02,
     &     +9.78861437573207098239D+01,
     &     -1.77262651464499150222D+01,
     &     +2.12553651132979481986D+01,
     &     -7.07553640430039791909D+01,
     &     +8.71360130418007798880D+01,
     &     -4.65547494341429839437D+01,
     &     +9.00395775876992843223D+00/
      
!     0.03000     LMR2
      data (mrange(6,2,i),i=1,3) /0,5,1/
      data (rrange(6,2,i),i=1,3) /0,5,1/
      data (alphas(6,2,i),i=1,36) /
     &     +1.56146519862202897144D+01,
     &     -3.25295555117365031705D+00,
     &     +3.80218538552061113833D+00,
     &     -2.85992446872646643996D+00,
     &     +1.05223371503530960247D+00,
     &     -1.49446662816108466476D-01,
     &     +7.77113365437422576321D+00,
     &     -2.69242148162415411150D+01,
     &     +4.21377981796297760297D+01,
     &     -3.05791586287080576767D+01,
     &     +1.03058811476673746199D+01,
     &     -1.30770786874792355192D+00,
     &     +4.37708329067558921111D+00,
     &     +4.05698553767332636966D+00,
     &     -4.39975579696197893753D+00,
     &     -4.02226205989940837071D+01,
     &     +3.97982102495747582793D+01,
     &     -9.68255076300243366916D+00,
     &     -1.14171738557163791938D+02,
     &     +1.44654983520949940612D+02,
     &     +1.25658014849041876460D+02,
     &     -7.61233422914715873731D+01,
     &     -4.97277512863255921616D+01,
     &     +2.27566957849081354937D+01,
     &     +8.52284180915415390700D+02,
     &     -2.11793768130346688849D+03,
     &     +1.43778303702111816165D+03,
     &     -3.53485239324663382376D+02,
     &     +5.96099116904753358881D+01,
     &     -1.52841095719764492600D+01,
     &     -7.27744971361332773085D+02,
     &     +2.37447873535868984618D+03,
     &     -2.29824328800873217915D+03,
     &     +9.63017826362198434254D+02,
     &     -1.94941240897338843752D+02,
     &     +1.82013102751265911650D+01/
      
!     0.03000     LMA
      data (mrange(6,3,i),i=1,3) /0,14,2/
      data (rrange(6,3,i),i=1,3) /-5,10,1/
      data (alphas(6,3,i),i=1,128) /
     &     -2.57403227906218804419D+07,
     &     +1.91919278581367194653D+08,
     &     -6.42722772365061283112D+08,
     &     +1.26557774018711972237D+09,
     &     -1.59807275300796556473D+09,
     &     +1.29431773149255251884D+09,
     &     -5.73752193441836237907D+08,
     &     -3.44428973121863901615D+07,
     &     +2.58171971437299102545D+08,
     &     -2.08805258131750792265D+08,
     &     +9.92256309368441253901D+07,
     &     -3.16719607180158011615D+07,
     &     +6.90780604186993371695D+06,
     &     -9.94125170976186404005D+05,
     &     +8.54546806862898811232D+04,
     &     -3.33231922729193092891D+03,
     &     +1.34762385503116726875D+08,
     &     -1.74399176370349168777D+09,
     &     +8.78154209435013771057D+09,
     &     -2.48007449760757026672D+10,
     &     +4.53496317537334213257D+10,
     &     -5.77108539579762878418D+10,
     &     +5.31677144188315505981D+10,
     &     -3.61960228471166305542D+10,
     &     +1.83377540802361297607D+10,
     &     -6.87766287682024002075D+09,
     &     +1.87236466119424223900D+09,
     &     -3.54625421447190940380D+08,
     &     +4.26550618172946497798D+07,
     &     -2.50770450767832808197D+06,
     &     -2.72280137764262872224D+04,
     &     +8.76822961747765839391D+03,
     &     +3.64113230917176294327D+09,
     &     -2.19993132639651412964D+10,
     &     +5.51823742774377899170D+10,
     &     -6.74001478202328414917D+10,
     &     +1.97503194124485588074D+10,
     &     +6.55027963168653793335D+10,
     &     -1.20047754730772918701D+11,
     &     +1.10973078984599426270D+11,
     &     -6.64446966999905242920D+10,
     &     +2.71468286742218437195D+10,
     &     -7.48815090425585556030D+09,
     &     +1.28782471484118795395D+09,
     &     -9.90502311621036529541D+07,
     &     -7.30136450831011310220D+06,
     &     +2.22677327622929215431D+06,
     &     -1.42107178068599314429D+05,
     &     -1.69094733263322086334D+10,
     &     +1.18528670819833084106D+11,
     &     -3.71969875084951599121D+11,
     &     +6.88453453818612182617D+11,
     &     -8.33162353980749511719D+11,
     &     +6.92006751423001220703D+11,
     &     -4.06654644455712707520D+11,
     &     +1.78505518636014801025D+11,
     &     -6.90610161810206146240D+10,
     &     +3.03147898201140594482D+10,
     &     -1.43313685446296138763D+10,
     &     +5.54512398337787055969D+09,
     &     -1.50349138969701838493D+09,
     &     +2.63695637427561759949D+08,
     &     -2.68951201610311269760D+07,
     &     +1.21421668571477057412D+06,
     &     +1.62520989450171852112D+10,
     &     -1.22380441325664489746D+11,
     &     +4.03718140234380981445D+11,
     &     -7.62315076723765625000D+11,
     &     +8.94726561199124023438D+11,
     &     -6.46755386562959716797D+11,
     &     +2.37624479000744293213D+11,
     &     +2.53444076942211761475D+10,
     &     -7.69330323678240509033D+10,
     &     +3.81364515969743728638D+10,
     &     -6.76366483839152717590D+09,
     &     -1.57825522737156033516D+09,
     &     +1.18057807852275967598D+09,
     &     -2.92124731642549633980D+08,
     &     +3.56642162956294342875D+07,
     &     -1.79988696399625157937D+06,
     &     -5.29522123969188880920D+09,
     &     +4.37924632110345230103D+10,
     &     -1.66864842737637054443D+11,
     &     +3.77193811645369873047D+11,
     &     -5.45755946513809143066D+11,
     &     +5.12213537621273925781D+11,
     &     -2.95784493345500854492D+11,
     &     +7.77097973981596527100D+10,
     &     +2.15638580927770462036D+10,
     &     -2.78122413775628700256D+10,
     &     +1.08470967326972980499D+10,
     &     -1.76167227877269959450D+09,
     &     -1.19039692308903947473D+08,
     &     +1.03663300992385908961D+08,
     &     -1.72756292958132103086D+07,
     &     +1.02701810218507179525D+06,
     &     +1.80343253078517799377D+10,
     &     -1.26691173309104354858D+11,
     &     +3.56351695791545471191D+11,
     &     -5.53758351468571411133D+11,
     &     +5.36138039982130004883D+11,
     &     -3.39866845315202819824D+11,
     &     +1.44163375900454193115D+11,
     &     -4.49762794375830764771D+10,
     &     +1.71580814489644603729D+10,
     &     -1.12449749792033348083D+10,
     &     +6.78490694496251773834D+09,
     &     -2.84463375643244552612D+09,
     &     +7.96841892772628188133D+08,
     &     -1.43851289638218492270D+08,
     &     +1.52044649291066508740D+07,
     &     -7.16406403363849385642D+05,
     &     +1.16520079605483184814D+11,
     &     -5.39465539126750244141D+11,
     &     +1.09764790470851672363D+12,
     &     -1.26552677553650268555D+12,
     &     +8.70273333877262084961D+11,
     &     -3.15431150532989440918D+11,
     &     +9.53251283628360748291D+08,
     &     +5.57105743806749877930D+10,
     &     -2.28806497057574310303D+10,
     &     +3.86158310274266898632D+08,
     &     +3.09330777606074094772D+09,
     &     -1.37702519450405025482D+09,
     &     +3.09963461585896790028D+08,
     &     -3.97062345451950877905D+07,
     &     +2.66685145412934198976D+06,
     &     -6.71761975842174288118D+04/
      
!     0.03000     HM
      data (mrange(6,4,i),i=1,3) /0,10,1/
      data (rrange(6,4,i),i=1,3) /0,15,1/
      data (alphas(6,4,i),i=1,176) /
     &     +3.12154248604355193675D+06,
     &     +1.40693554095653563738D+08,
     &     -3.71595276305998325348D+08,
     &     +1.76670755437760323286D+08,
     &     +2.02951692746982872486D+08,
     &     -2.92336468998508751392D+08,
     &     +1.68110673419797122478D+08,
     &     -5.15604220053785145283D+07,
     &     +4.97172830721258837730D+06,
     &     +1.57284540400977246463D+06,
     &     -1.75988885345202215831D+04,
     &     -2.97943821613070613239D+05,
     &     +8.61773562932996719610D+04,
     &     -9.04684915798255497066D+03,
     &     +5.27682281201942714688D+02,
     &     -4.83809114868389968933D+01,
     &     -7.35394878249169588089D+07,
     &     -5.76316277886640667915D+08,
     &     +2.41011072754778337479D+09,
     &     -2.36860622483675336838D+09,
     &     +7.09952326698126316071D+08,
     &     +2.10905643436775207520D+08,
     &     -2.58844355418170630932D+08,
     &     +1.12699839262904345989D+08,
     &     -2.48447791184037849307D+07,
     &     +3.05833750104070967063D+06,
     &     -2.27715413729118229821D+06,
     &     +1.28163629808912402950D+06,
     &     -2.45961475246419315226D+05,
     &     +7.71686543784326659079D+03,
     &     +9.24986993266994090845D+02,
     &     +1.19680958374041750858D+02,
     &     +3.01712491925559639931D+08,
     &     +1.35997955868716746569D+08,
     &     -4.33322825757982063293D+09,
     &     +5.50388031191586112976D+09,
     &     -2.64093562924157762527D+09,
     &     +6.12809232748553872108D+08,
     &     -9.04877006798645257950D+07,
     &     +9.55706229663263447583D+06,
     &     -1.24463357289487235248D+07,
     &     +1.14754493813732806593D+07,
     &     -2.62512806448984425515D+06,
     &     -1.38746075201159896096D+05,
     &     -3.06434607562738347042D+04,
     &     +5.51760989160078097484D+04,
     &     -7.38420266268990508252D+03,
     &     -7.88663649547120257921D+01,
     &     -2.52314621471064984798D+08,
     &     +1.59695673223666906357D+09,
     &     +2.56902829277027750015D+09,
     &     -4.80529198174804210663D+09,
     &     +2.24889814265354108810D+09,
     &     -3.74476785226586341858D+08,
     &     +5.43274903410231973976D+06,
     &     +4.29081287132954373956D+07,
     &     -2.75819523820120133460D+07,
     &     +5.40615162239633128047D+06,
     &     -1.34637905180512159131D+06,
     &     +8.50683737928409944288D+05,
     &     -1.24430090013735956745D+05,
     &     -2.52241309959800564684D+04,
     &     +3.73821107091213934837D+03,
     &     +3.32248890148269254041D+02,
     &     -5.60517200779632091522D+08,
     &     -1.89984697471257662773D+09,
     &     +6.79333540273263901472D+07,
     &     +1.90352540671050238609D+09,
     &     -7.50747156377030849457D+08,
     &     -4.72567503656732067466D+07,
     &     +3.00467742178344316781D+07,
     &     -1.93436903588892333210D+06,
     &     +2.95066336620633816347D+06,
     &     +1.70540967107301065698D+06,
     &     -1.16727812393627688289D+06,
     &     +4.34517006904071604367D+04,
     &     +2.35401513264981185785D+04,
     &     +6.11857844834931529476D+03,
     &     +1.03171863933184098983D+02,
     &     -3.75092728367472147966D+02,
     &     +1.24819667430232143402D+09,
     &     +2.19967497561418384314D+08,
     &     -7.89014919695381075144D+07,
     &     -5.97878301337307453156D+08,
     &     +1.59211666115665256977D+08,
     &     +5.16454561360483840108D+07,
     &     -4.18833435321484040469D+06,
     &     -3.39808681376820290461D+06,
     &     -7.22078069451165269129D+05,
     &     +1.99512798423410247779D+05,
     &     +9.07387635003017785493D+04,
     &     -1.52441052433743388974D+04,
     &     -8.25416524310134082043D+03,
     &     +2.18147893849961155865D+03,
     &     -6.64708537198572457783D+02,
     &     +1.44256443204359840138D+02,
     &     -8.01485488430039882660D+08,
     &     +5.38297769089608192444D+08,
     &     -6.06655185404267787933D+08,
     &     +4.95703300265223979950D+08,
     &     -1.09494887044486209750D+08,
     &     +1.03584531923860888928D+07,
     &     -5.11998278185982257128D+06,
     &     -3.64656091820526169613D+06,
     &     +1.75311863341458095238D+06,
     &     -4.11223165191869309638D+05,
     &     +1.88387970340288331499D+05,
     &     -3.47362162359701178502D+04,
     &     +8.57684754506128047069D+03,
     &     -2.74638773621986092621D+03,
     &     +9.61819122641777823901D+01,
     &     +2.69118539619979557642D+01,
     &     -7.32038980764418244362D+07,
     &     +2.00004937755068242550D+08,
     &     +1.87085510840455114841D+08,
     &     -2.40693202493527889252D+08,
     &     +2.91464472802970111370D+07,
     &     +1.80457588328361362219D+07,
     &     -5.22623080352768115699D+06,
     &     +6.93950939136536209844D+05,
     &     +1.29864879686568258330D+06,
     &     -6.70193084813015302643D+05,
     &     +9.20749454564202897018D+04,
     &     -2.00941969415327257593D+04,
     &     +4.96906965956355270464D+03,
     &     -3.33430820278479188801D+02,
     &     +2.60022419015300613410D+02,
     &     -5.26054399949432109906D+01,
     &     +3.49899361381577372551D+08,
     &     -6.16363983678707957268D+08,
     &     +2.87744997564267575741D+08,
     &     -5.80734918315911106765D+06,
     &     -7.49858021421681251377D+06,
     &     -1.02456923512990288436D+07,
     &     +5.04230622996888868511D+06,
     &     +8.30524694711205520434D+04,
     &     -8.61025903787584858947D+05,
     &     +1.34900060086739453254D+05,
     &     +8.92692328603777714306D+04,
     &     -2.89001283128855830000D+04,
     &     +2.12396475300008751219D+03,
     &     +2.95241329416678070174D+02,
     &     -1.65338632433199251182D+02,
     &     +2.41591961058125228590D+01,
     &     -1.71260510420660376549D+08,
     &     +3.28761719424411475658D+08,
     &     -2.11206060614314973354D+08,
     &     +3.46205389136431142688D+07,
     &     +2.04971128339806981385D+07,
     &     -1.15401356420353483409D+07,
     &     +2.01258777025233558379D+06,
     &     -1.79581004342673142673D+05,
     &     +2.07729967156824888662D+05,
     &     -9.74314817908821714809D+04,
     &     +2.22068544668985268800D+04,
     &     -8.59795432872551464243D+03,
     &     +3.31306345412375048909D+03,
     &     -7.04637490543811736643D+02,
     &     +9.43370988450807317349D+01,
     &     -7.12454991962896322377D+00,
     &     +2.84390209118411280215D+07,
     &     -5.95417063166125416756D+07,
     &     +4.45506571666083186865D+07,
     &     -9.78308669950580969453D+06,
     &     -5.62624247386193368584D+06,
     &     +4.15237079235649015754D+06,
     &     -5.87503508675953838974D+05,
     &     -4.26206334621473739389D+05,
     &     +2.55988526607063336996D+05,
     &     -6.22110169340419161017D+04,
     &     +3.20104591341956165707D+03,
     &     +3.22804174274844626780D+03,
     &     -1.24817289214048719259D+03,
     &     +2.26605355126834183466D+02,
     &     -2.29672306377457609017D+01,
     &     +1.15281981127687060962D+00/
      
!     0.03000     Recom
      data (mrange(6,5,i),i=1,3) /0,3,1/
      data (rrange(6,5,i),i=1,3) /0,3,1/
      data (alphas(6,5,i),i=1,16) /
     &     +1.34060093558913830947D+01,
     &     -7.67393959247841483950D-01,
     &     +5.67829538231681030247D-01,
     &     -1.53301717168738610431D-01,
     &     +1.68198984963847353313D+00,
     &     +2.75310597472883875070D-02,
     &     -3.85904737173993372945D-01,
     &     +1.74248736565002115828D-01,
     &     -1.42654332247593096383D+00,
     &     +1.33518023284770448456D+00,
     &     -3.89425375461592448989D-01,
     &     -1.47490049820737292169D-02,
     &     +5.53979839492381387345D-01,
     &     -6.97392793919068609831D-01,
     &     +2.81780811937450081928D-01,
     &     -2.63299277947934735888D-02/
